home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)g5.d64 / craps odds (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  131 lines
  1. 10 REM *** CRAPS 2
  2. 20 REM     EARL WUCHTER
  3. 30 REM
  4. 40 REM *** PET USER GROUP
  5. 50 REM     SOFTWARE EXCHANGE
  6. 60 REM     PO BOX 371
  7. 70 REM     MONTGOMERYVILLE, PA 18936
  8. 80 REM
  9. 98 DIMN$(12),WK(5),AD$(5),OD$(10),HW$(10)
  10. 99 I=RND(-TI)
  11. 100 D$(0)="   [157][157][157]   [157][157][157]   [157][157][157][145][145][146]"
  12. 101 D$(1)="   [157][157][157] [209] [157][157][157]   [157][157][157][145][145][146]"
  13. 102 D$(2)="  [209][157][157][157]   [157][157][157][209]  [157][157][157][145][145][146]"
  14. 103 D$(3)="[209]  [157][157][157] [209] [157][157][157]  [209][157][157][157][145][145][146]"
  15. 104 D$(4)="[209] [209][157][157][157]   [157][157][157][209] [209][157][157][157][145][145][146]"
  16. 105 D$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209][157][157][157][145][145][146]"
  17. 106 D$(6)="[209] [209][157][157][157][209] [209][157][157][157][209] [209][157][157][157][145][145][146]"
  18. 107 CD$=""
  19. 108 BL$="                                      "
  20. 109 N$(2)="TWO ":N$(3)="THREE ":N$(4)="FOUR ":N$(5)="FIVE ":N$(6)="SIX "
  21. 110 N$(7)="SEVEN ":N$(8)="EIGHT ":N$(9)="NINE ":N$(10)="TEN "
  22. 111 N$(11)="ELEVEN ":N$(12)="TWELVE "
  23. 115 OD$(4)="2 TO 1":OD$(5)="3 TO 2":OD$(6)="6 TO 5":OD$(8)=OD$(6)
  24. 116 OD$(9)=OD$(5):OD$(10)=OD$(4)
  25. 117 HW$(4)="8 TO 1":HW$(10)=HW$(4)
  26. 118 HW$(6)="10 TO 1":HW$(8)=HW$(6)
  27. 119 AD$(0)=" ":AD$(2)=" ":AD$(5)=" "
  28. 240 GOSUB800
  29. 250 PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][201] [213][192][192][192][192][192][192][192][201] [213][192][192][192][192][192][192][192][192][192][192][192][201]"
  30. 251 PRINT "[221]HIT ANY KEY [221] [221]       [221] [221] HIT A FOR [221]"
  31. 252 PRINT "[221] FOR MANUAL [221][160][221]       [221] [221] AUTOMATIC [221]"
  32. 253 PRINT "[221] DICE ROLL  [221][160][221]       [221] [221] DICE ROLL [221]"
  33. 254 PRINT "[202][192][192][192][192][192][192][192][192][192][192][192][192][203] [202][192][192][192][192][192][192][192][203][160][202][192][192][192][192][192][192][192][192][192][192][192][203]"
  34. 255 PRINTLEFT$(CD$,17)TAB(12)"COUNT    DEVIATION"
  35. 256 PRINTBL$
  36. 257 PRINT"TURNS ....."
  37. 258 PRINT"WON ......."
  38. 259 PRINT"LOST ......"
  39. 260 PRINT"NATURAL ..."
  40. 261 PRINT"CRAPS ....."
  41. 264 PRINT"CONSEQ.WINS"
  42. 265 PRINTLEFT$(CD$,6)
  43. 280 GETX$:IFX$=""GOTO280
  44. 300 REM
  45. 301 R=1:WK(0)=WK(0)+1
  46. 305 PRINTLEFT$(CD$,6):PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$
  47. 307 T=INT(12*RND(3)+6)
  48. 308 FORK=1TOT
  49. 310 D1=INT(6*RND(1)+1):D2=INT(6*RND(2)+1)
  50. 312 PRINT""TAB(16)D$(D1)TAB(20)D$(D2)
  51. 315 NEXT
  52. 318 DV=D1+D2
  53. 320 J=7:IFR=2THENJ=12:IFDDTHENJ=13
  54. 321 PRINTLEFT$(CD$,J)"      [157][157][157][157][157][157]"N$(DV);
  55. 330 IFR=1GOTO400
  56. 380 IFDV<>7GOTO390
  57. 382 PRINT"... YOU LOSE               "
  58. 383 R=1:WK(2)=WK(2)+1:W5=0
  59. 385 GOTO450
  60. 390 IFDV= PTGOTO394
  61. 392 PRINTTAB(07)"... ROLL AGAIN             "
  62. 393 GOTO496
  63. 394 PRINT"... YOU WIN                ";
  64. 395 IFD1=D2THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157]THE HARD WAY"
  65. 396 R=1:WK(1)=WK(1)+1
  66. 397 W5=W5+1:IFW5>WK(5)THENWK(5)=W5
  67. 398 PRINT:GOTO450
  68. 400 ON DVGOTO410,410,410,420,420,420,430,420,420,420,430,410
  69. 410 PRINT"... CRAPS ... YOU LOSE     "
  70. 411 WK(4)=WK(4)+1:WK(2)=WK(2)+1:W5=0
  71. 412 IFAMTHENFORI=1TO60:NEXT
  72. 416 GOTO450
  73. 420 PRINT" IS YOUR POINT             "
  74. 422 PT=DV :R=2
  75. 423 PRINTBL$:PRINTOD$(PT)" YOU DON'T MAKE IT":PRINTBL$
  76. 424 DD=0:IFPT=4ORPT=6ORPT=8ORPT=10THENDD=1
  77. 425 IFDDTHENPRINTHW$(PT)" YOU DON'T MAKE IT THE HARD WAY":PRINTBL$
  78. 428 GOTO496
  79. 430 PRINT"... A NATURAL ... YOU WIN  "
  80. 431 WK(1)=WK(1)+1:WK(3)=WK(3)+1
  81. 432 W5=W5+1:IFW5>WK(5)THENWK(5)=W5
  82. 435 IFAMTHENFORI=1TO60:NEXT
  83. 440 GOTO 450
  84. 450 PRINTLEFT$(CD$,19);
  85. 451 X=((WK(1)/WK(0))-.49395)/.49395
  86. 452 AD$(1)=STR$(X)
  87. 453 X=((WK(3)/WK(0))-.222222)/.222222
  88. 454 AD$(3)=STR$(X)
  89. 455 X=((WK(4)/WK(0))-.111111)/.111111
  90. 456 AD$(4)=STR$(X)
  91. 460 FORI=0TO5
  92. 465 PRINTTAB(11)RIGHT$(("    "+STR$(WK(I))),5);
  93. 466 PRINTTAB(20)"                   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"AD$(I)
  94. 470 NEXT
  95. 496 GETY$:IFY$=""THENIFAM=0THENGOTO496
  96. 497 IFAMTHENFORI=1TO070:NEXT:IFY$<>"A"THENIFY$<>""THENAM=0
  97. 498 IFY$="A"THENAM=1
  98. 500 ON R GOTO 301,307
  99. 800 PRINT"[147]     C R A P S   D E M O"
  100. 805 POKE59468,14
  101. 810 PRINTTAB(23)"E[193][210][204][160]W[213][195][200][212][197][210][160]1978"
  102. 820 PRINT"T[200][201][211][160][208][210][207][199][210][193][205][160][201][204][204][213][211][212][210][193][212][197][211][160][212][200][197][160][207][196][196][211]"
  103. 822 PRINT"[201][206][214][207][204][214][197][196][160][201][206][160]CRAPS."
  104. 824 PRINT"I[212][160][201][211][160][206][207][212][160][193][160][194][197][212][212][201][206][199][160][199][193][205][197]."
  105. 826 PRINT"CRAPS [201][211][160][208][204][193][217][197][196][160][193][211][160][198][207][204][204][207][215][211]:"
  106. 827 PRINT"O[206][197][160][208][204][193][217][197][210][160][194][197][212][211], [212][200][197][206][160][210][207][204][204][211][160][212][200][197][160][196][201][195][197]"
  107. 828 PRINT"A[206][217][160][208][207][210][212][201][207][206][160][207][198][160][200][201][211][160][194][197][212][160][205][193][217][160][194][197][160][195][207][214][197][210][197][196]"
  108. 829 PRINT"[194][217][160][212][200][197][160][207][212][200][197][210][160][208][204][193][217][197][210][211][160][215][200][207][160][194][197][212][160][193][199][193][201][206][211][212][160][200][201][205]"
  109. 830 PRINT"I[198][160][212][200][197][160][198][201][210][211][212][160][210][207][204][204][160][201][211]
  110. 832 [153]"7 (null)(null)CLOSE11 (ATNCLOSENATURAL), LEFT$VALCLOSE(null)RIGHT$(null)(null)."
  111. 834 [153]"2, 3, (null)(null)CLOSE12 (CRAPS), LEFT$VALCLOSE(null)(null)(null)VAL(null)."
  112. 836 [153]"A(null)(null)CLOSE(null)(null)LEFT$VAL(null)CLOSE(null)(null)(null)PEEKVAL(null)CLOSEPEEKVALLEN(null)(null)VAL(null)CLOSELEFT$RIGHT$(null)CLOSE'POINT'"
  113. 838 [153]"ATN(null)STR$CLOSELEFT$VALCLOSE(null)(null)(null)(null)CLOSE(null)(null)(null)(null)CLOSE(null)(null)(null)RIGHT$(null)CLOSELEFT$VALCLOSECHR$VAL(null)(null)CLOSE"
  114. 840 [153]"LEFT$RIGHT$(null)CLOSE(null)(null)RIGHT$(null)(null)CLOSEATN(null)STR$CLOSE(null)RIGHT$(null)(null),"
  115. 842 [153]"(null)(null)CLOSE7 ATN(null)STR$CLOSE(null)(null)(null)VAL(null)CLOSELEFT$RIGHT$(null)CLOSEPEEKVAL(null)CLOSEATN(null)STR$CLOSELEFT$RIGHT$(null)CLOSE(null)(null)(null)(null)."
  116. 850 [133]"OK  YCMDCMDCMD";Y$
  117. 860 [153]"LOAD     C R A P S   D E M O"
  118. 865 [153][163]23)"EATN(null)(null)CLOSEW(null)LENLEFT$(null)VAL(null)CLOSE1978"
  119. 870 [153]"TLEFT$VALCLOSE(null)STR$STR$(null)CLOSEATNCHR$ATNRIGHT$(null)(null)(null)CLOSE(null)LEFT$VALCLOSE(null)(null)ATN(null)VAL(null)CLOSE(null)RIGHT$(null)LEFT$CLOSE(null)LEFT$VAL"
  120. 875 [153]"STR$RIGHT$LENVALCLOSEATN(null)VALCLOSE251 (null)(null)CLOSE245 (VAL(null)VAL(null)CLOSE(null)(null)(null)VAL(null))"
  121. 880 [153]"TLEFT$VALCLOSE(null)(null)ATN(null)VAL(null)CLOSE(null)RIGHT$(null)LEFT$CLOSEATNCLOSEPOINTCLOSE(null)(null)CLOSE(null)ATN(null)VALCLOSE(null)ATN(null)"
  122. 885 [153]"(null)ATN(null)VALCLOSEATNSTR$STR$RIGHT$(null)RIGHT$(null)(null)ATN(null)CLOSEPEEKVAL(null)(null)CLOSE(null)LEFT$ATN(null)CLOSELEFT$VALCLOSE(null)RIGHT$(null)(null)"
  123. 886 [153]"(null)ATN(null)VALCLOSELEFT$RIGHT$(null)CLOSE(null)(null)RIGHT$(null)(null)CLOSE'TLEFT$VALCLOSEHATN(null)STR$CLOSEWATN(null)'"
  124. 887 [153]"   ((null)RIGHT$(null)LEFT$CLOSESTR$(null)(null)PEEK(null)VAL(null))"
  125. 888 [153]"TLEFT$VALCLOSE(null)(null)(null)CHR$(null)ATN(null)CLOSE(null)RIGHT$(null)(null)CLOSESTR$RIGHT$(null)(null)(null)ATN(null)CLOSEATNLEN(null)(null)ATN(null)CLOSELEN(null)(null)(null)(null)(null)"
  126. 889 [153]"ATN(null)STR$CLOSE(null)(null)(null)(null)ATN(null)RIGHT$(null)VALSTR$CLOSESTR$VAL(null)RIGHT$ATN(null)RIGHT$(null)(null)CLOSEASC(null)(null)(null)CLOSE(null)LEFT$VAL"
  127. 890 [153]"(null)(null)(null)PEEKATNPEEK(null)VALCLOSELEN(null)(null)(null)(null)(null)."
  128. 892 [133]"OK  YCMDCMDCMD";Y$
  129. 898 [151]59468,12
  130. 899 [142]
  131.